home *** CD-ROM | disk | FTP | other *** search
/ Into That Dark Night / Into That Dark Night.iso / pc / YadVashem / Database / FloatDBMenu.dxr / Internal_9.ls < prev    next >
Encoding:
Text File  |  2001-06-12  |  623 b   |  26 lines
  1. on mouseUp
  2.   tell the stage
  3.     close(window "FloatDBMenu")
  4.     forget(window "FloatDBMenu")
  5.     if objectp(window "Lexshow") then
  6.       close(window "lexshow")
  7.       forget(window "lexshow")
  8.     end if
  9.     if objectp(window "Txtshow") then
  10.       close(window "Txtshow")
  11.       forget(window "Txtshow")
  12.     end if
  13.     if objectp(window "Imgshow") then
  14.       close(window "Imgshow")
  15.       forget(window "Imgshow")
  16.     end if
  17.     if the windowList <> [] then
  18.       repeat with i = 1 to count(the windowList)
  19.         close(window i)
  20.         forget(window i)
  21.       end repeat
  22.     end if
  23.     go(1, "@\\mainIntro")
  24.   end tell
  25. end
  26.